(xml-lite-parse-tag-backward): Fix for implicitly empty tags.

diff --git a/lisp/textmodes/xml-lite.el b/lisp/textmodes/xml-lite.el
index 129c305404e853d699db9982a97511070f131ab7..717732e09125f9b1056f7004068eccb6c1ae407b 100644 (file)
--- a/lisp/textmodes/xml-lite.el
+++ b/lisp/textmodes/xml-lite.el
@@ -110,7 +110,8 @@ Leave point at the beginning of the tag."
         (t                              ; open or empty tag
          (setq tag-type 'open
                name (xml-lite-parse-tag-name))
-         (if (eq ?/ (char-before (- tag-end 1)))
+         (if (or (eq ?/ (char-before (- tag-end 1)))
+                 (sgml-empty-tag-p name))
              (setq tag-type 'empty))))))
     (goto-char tag-start)
     (xml-lite-make-tag tag-type tag-start tag-end name)))